home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / prog / mod2tutb.zip / FIRSTEX.MOD < prev    next >
Text File  |  1989-01-18  |  833b  |  41 lines
  1. MODULE FirstEx;
  2.  
  3. FROM InOut IMPORT WriteLn, WriteString, WriteCard;
  4.  
  5. VAR Index : CARDINAL;
  6.  
  7. BEGIN
  8.  
  9.    WriteString("This is our first example program");
  10.    WriteLn;
  11.    WriteLn;
  12.    FOR Index := 1 TO 12 DO
  13.       WriteString("The value of the index is now ");
  14.       WriteCard(Index,3);
  15.       WriteLn;
  16.    END
  17.  
  18. END FirstEx.
  19.  
  20.  
  21.  
  22.  
  23. (* Result of execution
  24.  
  25. This is our first example program
  26.  
  27. The value of the index is now   1
  28. The value of the index is now   2
  29. The value of the index is now   3
  30. The value of the index is now   4
  31. The value of the index is now   5
  32. The value of the index is now   6
  33. The value of the index is now   7
  34. The value of the index is now   8
  35. The value of the index is now   9
  36. The value of the index is now  10
  37. The value of the index is now  11
  38. The value of the index is now  12
  39.  
  40. *)
  41.